home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / prelude / Pen.p < prev    next >
Text File  |  2004-01-31  |  9KB  |  224 lines
  1. pTempVar <- <primitive 110 27 >
  2. <primitive 112 pTempVar 1  " closePlotEnv: " \
  3.   #( #[ 16r50 16r21 16rFA 16r02 16rA9 16r5B 16rB6 16rF6 16r0C 16r20 16r30 \
  4.         16r21 16r0B 16r12 16r31 16r0B 16r12 16rBD 16rF2 16r20 16rF3 \
  5.         16rF2 16r5D 16rF3 16rF5] \
  6.     #( 'PlotEnv ' ' did NOT close!'  )) >
  7.  
  8. <primitive 112 pTempVar 2  " openPlotEnv: " \
  9.   #( #[ 16r21 16r0A 16r31 16r72 16r21 16r0A 16r32 16r73 16r51 16r10 16r22 \
  10.         16r23 16rFA 16r04 16rA9 16r5B 16rB6 16rF6 16r0E 16r20 16r30 \
  11.         16r10 16r0B 16r12 16r31 16r0B 16r12 16rBD 16rF2 16r5D 16rF3 \
  12.         16rF8 16r14 16rF2 16r05 16r36 16r50 16rB0 16r63 16r22 16r52 \
  13.         16rBF 16r61 16r23 16r52 16rBF 16r62 16r22 16r64 16r23 16r65 \
  14.         16r20 16rF3 16rF2 16rF5] \
  15.     #( 'openPlotEnv ' ' did NOT open!'  )) >
  16.  
  17. <primitive 112 pTempVar 3  " new: " \
  18.   #( #[ 16r21 16r05 16r3A 16r81 16r00 16rF7 16r05 16r21 16rF1 16r60 16rF8 \
  19.         16r04 16rF2 16r31 16rF1 16r60 16rF2 16r05 16r36 16r50 16rB0 \
  20.         16r63 16r05 16rA0 16r61 16r05 16r64 16r62 16r32 16r64 16r05 \
  21.         16rC8 16r65 16r51 16r66 16r50 16r67 16r20 16rF3 16rF5] \
  22.     #( #isKindOf: 'Unknown Plot' 320  )) >
  23.  
  24. <primitive 112 pTempVar 4  " new " \
  25.   #( #[ 16r30 16r60 16r05 16r36 16r50 16rB0 16r63 16r05 16rA0 16r61 16r05 \
  26.         16r64 16r62 16r31 16r64 16r05 16rC8 16r65 16r51 16r66 16r50 \
  27.         16r67 16r20 16rF3 16rF5] \
  28.     #( 'Unknown Plot' 320  )) >
  29.  
  30. <primitive 112 pTempVar 5  " turn: " \
  31.   #( #[ 16r13 16r21 16rC0 16r63 16r20 16rF3 16rF5] \
  32.     #(  )) >
  33.  
  34. <primitive 112 pTempVar 6  " go: " \
  35.   #( #[ 16r13 16r05 16r36 16r81 16r00 16rF7 16r17 16r13 16r80 16r01 16r21 \
  36.         16rC2 16r0A 16r29 16r11 16rC0 16r72 16r13 16r80 16r02 16r21 \
  37.         16rC2 16r0A 16r29 16r12 16rC0 16rF1 16r73 16rF8 16r1A 16rF2 \
  38.         16r13 16r80 16r03 16r80 16r01 16r21 16rC2 16r0A 16r29 16r11 \
  39.         16rC0 16r72 16r13 16r80 16r03 16r80 16r02 16r21 16rC2 16r0A \
  40.         16r29 16r12 16rC0 16rF1 16r73 16rF2 16r20 16r22 16r23 16r81 \
  41.         16r04 16r81 16r05 16rF2 16r20 16rF3 16rF5] \
  42.     #( #isKindOf: #sin #cos #radians #@ #drawTo:  )) >
  43.  
  44. <primitive 112 pTempVar 7  " setPens: " \
  45.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16rFA 16r02 16rB0 16rF2 16r21 \
  46.         16r0A 16r31 16r66 16r21 16r0A 16r32 16r67 16r20 16rF3 16rF5 \
  47.        ] \
  48.     #(  )) >
  49.  
  50. <primitive 112 pTempVar 8  " tellPens " \
  51.   #( #[ 16r16 16r17 16r81 16r00 16rF3 16r20 16rF3 16rF5] \
  52.     #( #@  )) >
  53.  
  54. <primitive 112 pTempVar 9  " center " \
  55.   #( #[ 16r20 16r14 16r52 16rBF 16r15 16r52 16rBF 16r81 16r00 16r81 16r01 \
  56.         16rF2 16r20 16rF3 16rF5] \
  57.     #( #@ #goTo:  )) >
  58.  
  59. <primitive 112 pTempVar 10  " titleIs " \
  60.   #( #[ 16r10 16rF3 16rF5] \
  61.     #(  )) >
  62.  
  63. <primitive 112 pTempVar 11  " location " \
  64.   #( #[ 16r11 16r12 16r81 16r00 16rF3 16rF5] \
  65.     #( #@  )) >
  66.  
  67. <primitive 112 pTempVar 12  " extent " \
  68.   #( #[ 16r14 16r15 16r81 16r00 16rF3 16rF5] \
  69.     #( #@  )) >
  70.  
  71. <primitive 112 pTempVar 13  " erase " \
  72.   #( #[ 16rFA 16r00 16rAA 16rF2 16r20 16rF3 16rF5] \
  73.     #(  )) >
  74.  
  75. <primitive 112 pTempVar 14  " direction: " \
  76.   #( #[ 16r21 16r63 16r20 16rF3 16rF5] \
  77.     #(  )) >
  78.  
  79. <primitive 112 pTempVar 15  " direction " \
  80.   #( #[ 16r13 16rF3 16rF5] \
  81.     #(  )) >
  82.  
  83. <primitive 112 pTempVar 16  " drawPoint: " \
  84.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16rFA 16r02 16rAD 16rF2 16r21 \
  85.         16r0A 16r31 16r61 16r21 16r0A 16r32 16r62 16r20 16rF3 16rF5 \
  86.        ] \
  87.     #(  )) >
  88.  
  89. <primitive 112 pTempVar 17  " drawLine:to: " \
  90.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16r22 16r0A 16r31 16r22 16r0A \
  91.         16r32 16rFA 16r04 16rB1 16rF2 16r22 16r0A 16r31 16r61 16r22 \
  92.         16r0A 16r32 16r62 16r20 16rF3 16rF5] \
  93.     #(  )) >
  94.  
  95. <primitive 112 pTempVar 18  " goTo: " \
  96.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16rFA 16r02 16rAB 16rF2 16r21 \
  97.         16r0A 16r31 16r61 16r21 16r0A 16r32 16r62 16r20 16rF3 16rF5 \
  98.        ] \
  99.     #(  )) >
  100.  
  101. <primitive 112 pTempVar 19  " drawTo: " \
  102.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16rFA 16r02 16rAC 16rF2 16r21 \
  103.         16r0A 16r31 16r61 16r21 16r0A 16r32 16r62 16r20 16rF3 16rF5 \
  104.        ] \
  105.     #(  )) >
  106.  
  107. <primitive 112 pTempVar 20  " drawArcAt:around:for: " \
  108.   #( #[ 16r23 16r05 16r36 16r81 16r00 16rF7 16r12 16r21 16r0A 16r31 16r21 \
  109.         16r0A 16r32 16r23 16r0A 16r10 16r22 16r0A 16r31 16r22 16r0A \
  110.         16r32 16rFA 16r05 16rA8 16rF2 16r20 16rF3 16rF5] \
  111.     #( #isKindOf:  )) >
  112.  
  113. <primitive 112 pTempVar 21  " drawArcAround:for: " \
  114.   #( #[ 16r22 16r05 16r36 16r81 16r00 16rF7 16r0E 16r11 16r12 16r22 16r0A \
  115.         16r10 16r21 16r0A 16r31 16r21 16r0A 16r32 16rFA 16r05 16rA8 \
  116.         16rF2 16r20 16rF3 16rF5] \
  117.     #( #isKindOf:  )) >
  118.  
  119. <primitive 112 pTempVar 22  " circleRadius: " \
  120.   #( #[ 16r11 16r12 16r21 16rFA 16r03 16rAE 16rF2 16r20 16rF3 16rF5] \
  121.     #(  )) >
  122.  
  123. <primitive 112 pTempVar 23  " drawCircleAt:radius: " \
  124.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16r22 16rFA 16r03 16rAE 16rF2 \
  125.         16r21 16r0A 16r31 16r61 16r21 16r0A 16r32 16r62 16r20 16rF3 \
  126.         16rF5] \
  127.     #(  )) >
  128.  
  129. <primitive 112 pTempVar 24  " drawBox:to: " \
  130.   #( #[ 16r21 16r0A 16r31 16r21 16r0A 16r32 16r22 16r0A 16r31 16r22 16r0A \
  131.         16r32 16rFA 16r04 16rAF 16rF2 16r22 16r0A 16r31 16r61 16r22 \
  132.         16r0A 16r32 16r62 16r20 16rF3 16rF5] \
  133.     #(  )) >
  134.  
  135. <primitive 112 pTempVar 25  " drawText:at: " \
  136.   #( #[ 16r21 16r22 16r0A 16r31 16r22 16r0A 16r32 16r16 16r17 16rFA 16r05 \
  137.         16rB2 16rF2 16r22 16r0A 16r31 16r61 16r22 16r0A 16r32 16r62 \
  138.         16r20 16rF3 16rF5] \
  139.     #(  )) >
  140.  
  141. <primitive 112 pTempVar 26  " setLineType: " \
  142.   #( #[ 16r21 16rFA 16r01 16rB3 16rF2 16r20 16rF3 16rF5] \
  143.     #(  )) >
  144.  
  145. <primitive 112 pTempVar 27  " movePlotEnvBy: " \
  146.   #( #[ 16r52 16r10 16r21 16r0A 16r31 16r21 16r0A 16r32 16rFA 16r04 16rA9 \
  147.         16rF2 16r20 16rF3 16rF5] \
  148.     #(  )) >
  149.  
  150. <primitive 98 #Pen \
  151.   <primitive 97 #Pen #Object #AmigaTalk:General/Pen.st \
  152.    #(  #title #x #y #angle #width #height #fpen #bpen ) \
  153.    #( #closePlotEnv: #openPlotEnv: #new: #new #turn: #go: #setPens:  \
  154.        #tellPens #center #titleIs #location #extent #erase #direction: #direction  \
  155.        #drawPoint: #drawLine:to: #goTo: #drawTo: #drawArcAt:around:for:  \
  156.        #drawArcAround:for: #circleRadius: #drawCircleAt:radius: #drawBox:to: #drawText:at:  \
  157.        #setLineType: #movePlotEnvBy:  ) \
  158.   pTempVar 4 10 > #ordinary >
  159.  
  160. pTempVar <- <primitive 110 3 >
  161. <primitive 112 pTempVar 1  " with:displayAt: " \
  162.   #( #[ 16r22 16r0A 16r31 16r73 16r22 16r0A 16r32 16r74 16r10 16rE1 16r07 \
  163.         16r2A 16r27 16r0A 16r31 16r75 16r27 16r0A 16r32 16r76 16r21 \
  164.         16r25 16r0A 16r31 16r23 16rC0 16r25 16r0A 16r32 16r24 16rC0 \
  165.         16r81 16r00 16r81 16r01 16rF2 16r21 16r26 16r0A 16r31 16r23 \
  166.         16rC0 16r26 16r0A 16r32 16r24 16rC0 16r81 16r00 16r81 16r02 \
  167.         16rF2 16r5D 16rF3 16rB3 16rF2 16r20 16rF3 16rF5] \
  168.     #( #@ #goTo: #drawTo:  )) >
  169.  
  170. <primitive 112 pTempVar 2  " add:to: " \
  171.   #( #[ 16r10 16r05 16r35 16rA0 16rF1 16r21 16r0B 16r33 16rF2 16rF1 16r22 \
  172.         16r0B 16r34 16rF2 16rBE 16rF2 16r20 16rF3 16rF5] \
  173.     #(  )) >
  174.  
  175. <primitive 112 pTempVar 3  " new " \
  176.   #( #[ 16r05 16r20 16rA0 16r60 16rF5] \
  177.     #(  )) >
  178.  
  179. <primitive 98 #FormPen \
  180.   <primitive 97 #FormPen #Pen #AmigaTalk:General/Pen.st \
  181.    #(  #lines ) \
  182.    #( #with:displayAt: #add:to: #new  ) \
  183.   pTempVar 8 9 > #ordinary >
  184.  
  185. pTempVar <- <primitive 110 2 >
  186. <primitive 112 pTempVar 1  " goTo: " \
  187.   #( #[ 16r20 16r21 16r91 16r00 16rF2 16r10 16r20 16r80 16r01 16r21 16r82 \
  188.         16r02 16rF2 16r20 16r21 16r91 16r00 16rF2 16r20 16rF3 16rF5 \
  189.        ] \
  190.     #( #goTo: #location #add:to:  )) >
  191.  
  192. <primitive 112 pTempVar 2  " setForm: " \
  193.   #( #[ 16r21 16r60 16r20 16rF3 16rF5] \
  194.     #(  )) >
  195.  
  196. <primitive 98 #SavePen \
  197.   <primitive 97 #SavePen #FormPen #AmigaTalk:General/Pen.st \
  198.    #(  #saveForm ) \
  199.    #( #goTo: #setForm:  ) \
  200.   pTempVar 2 6 > #ordinary >
  201.  
  202. pTempVar <- <primitive 110 3 >
  203. <primitive 112 pTempVar 1  " spiral:angle: " \
  204.   #( #[ 16r51 16r21 16rB2 16rE1 16r03 16r0A 16r10 16r23 16r81 16r00 16rF2 \
  205.         16r10 16r22 16r81 16r01 16rF3 16rB3 16rF2 16r20 16rF3 16rF5 \
  206.        ] \
  207.     #( #go: #turn:  )) >
  208.  
  209. <primitive 112 pTempVar 2  " poly:length: " \
  210.   #( #[ 16r21 16rE0 16r0C 16r10 16r22 16r81 16r00 16rF2 16r10 16r31 16r21 \
  211.         16rBF 16r81 16r02 16rF3 16rB8 16rF2 16r20 16rF3 16rF5] \
  212.     #( #go: 6.2831853 #turn:  )) >
  213.  
  214. <primitive 112 pTempVar 3  " withPen: " \
  215.   #( #[ 16r21 16r60 16r20 16rF3 16rF5] \
  216.     #(  )) >
  217.  
  218. <primitive 98 #ShowPen \
  219.   <primitive 97 #ShowPen #Object #AmigaTalk:General/Pen.st \
  220.    #(  #bic ) \
  221.    #( #spiral:angle: #poly:length: #withPen:  ) \
  222.   pTempVar 4 7 > #ordinary >
  223.  
  224.